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MODULE DELBAD ( oun antestll 
IDENT 2 Preity : 
BEGIN 


' 
(eeeeeeeererereeeeeeeeeeeeeeeeeeteteeterereeereeerereeereeeeteeeneeeeeeeetene 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'e THIS ie heck IS pynnt ece UNDER A LICENSE AND MAY BE USED AND corres 
t* ONLY IN ACCORDANCE WITH TH {enns OF SUCH LICENSE AND WITH THE 


; NOT 
!® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
& 
fe 
® 
we 
® 
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® 
e 
® 
ie TRANSFERRED. * 
« 
® 
a 
® 
® 
* 
® 
® 
® 
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t@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!* CORPORATION. 

'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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i ABSTRACT: 


This routine removes the indicated procs from the given file header 
and appends them to the bad block file. 


i ENVIRONMENT : 


STARLET operating system, including privileged system services 


lee 
' 
FACILITY: FIIACP Structure Level 2 
| 
and internal exec routines. 


| 
AUTHOR: Andrew C. Goldstein, CREATION DATE: 29-May-1978 22:43 | 


i MODIFIED BY: 
v03-006 cDS0006 Christian D. Saether 14-Aug-1984 
Remove obsolete reference to update_filesize Feut 100. 
v03-005 £0S0005 Christian D. Saether 31-July-1984 


Remove local definition of get_map_pointer Linkage. 
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ety 7 99: 9; 4 DISKSVMSMASTER <CFIIX.SR RCIDELBAD.832; (29 Ta 
v03-004 CdS0002 Christian D. Seether 22-May-1984 


Perform deallocation to bad block aie in secondary 
context. Add appropriate serialization. 


3 


Previous revision history moved to f11B. 


: 1! 

3 1 

; 1 i 

i # 1 i 

.+: © 1! v03-003 coseees Christian D. Saether 29-Dec-1983 

; o7 : : @ L_NORM Linkage ond BIND_COMMON macro. 

; «665 1 i v03-002 ACG0367 Andrew C. Goldstein, 26-Oct-1983 19:49 
: 68 } Update BADBLK.SYS file highwater mark 

; 1: v03-001 LMP0037 L. Mark Pilant, 28-Jun-1982 15:10 
: $ : Remove the addressing mode module switch. 

: 71 1 i v02-003 AcG0230 Andrew C. Goldstein, 24-Dec-1981 0:16 
: : Go to longword external addressing 

; 74 | v02-002 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:25 
; 1 i 

; 1 

; 1 

; 1 

; 1 
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i 
BR 35 


uw 


rele] 


woovovnowvo 
VPwn— 


O@o i et PPR PRP NB 
SRANLSSSIES WO OONOUS wr 


© 


Le 


POPOPOPONONOPONONONOPONPOPONOPONONIPONYND 2 et 9 2 2 


SSLESFANLS SELF 


ooooo 
ooo 


a ed dd dd 
COCOCCO 
MEWN—O0O@ 


MEW $0 OBNOUNE WN" O OONO Un FwnN oO 
edadatadadatadtadatabadatadadatabatataiaiwaadat tatatadatdatatabababdabababab ahabeabababababababababababahababad 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ee ee ee me ee a ae ed ed ot = ot ot = 


MUTI SSeS OSCD 
NOME WN —OOONOUL WN —OO@ 


Be Se Oe Be Be Se Oe Se Se Se Be Se Se Se Be Se Be Se Fe Ge Fe Se Se Se Se Fe Ge Ge Se Ge Ge Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Oe Se Se He Se Se Oe Oe ee we 


ISH ABSSN4 BMD data 


<9 
pl 


| 
0-742 p | 
DISKSVMSMASTERSEF TIX. SRCIDELBAD.B32;1°7" (23, 


GLOBAL ROUTINE DEALLOCATE_BAD (FIB, FILE_HDR, POINTER, LAST_COUNT) : L_NORM NOVALUE = 


lee 
! 
FUNCTIONAL DESCRIPTION: 
This routine removes the indicated blocks from the given file header 
and appends them to the bad block file. 
CALLING eet) 
DEALLOCATE_BAD (ARG1, ARG2, ARG3, ARG4) 
INPUT PARAMETERS: 
ARG]: address of user FIB 
ARG2: address of file header 
ARGS: address of map pointer at which to start 
ARG4: new value for last pointer block count 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
file header updated, bad block log file updated, bad block file extended 


BEGIN 
MAP 
FIB : REF BBLOCK, ! user FIB argument 
FILE_HDR : REF BBLOCK; ! address of file header 
LINKAGE 


L_MAKE_POINTER = CALL : 
GLOBAL (BUILD_POINTER = 9); 


GLOBAL REGISTER 

COUNT = 6, ' count of blocks returned 

=f, ! LBN of map entry 

MAP_POINTER s 8 : REF BBLOCK, ! pointer to scan map 

BUICD_POINTER = 9 : REF BBLOCK; ! pointer to build new map entry 
LOCAL 

EADER : REF BBLOCK, ' Local address of file header 
EXT_HEADER : REF BBLOCK; ! address of extension header 


BIND 
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1b-se -1984 00:14:24 VAX-11 Bliss-32 V4.0-74 
1 ~8ep-19 4 99: 465% DISKSVMSMASTER:CF11X.SR 


an 


Get into secondary context. 


8 BB_FID = UPLIT WORD (BADBLK_FID, BADBLK_FID, 0); 
1 BIND_ COMMON; 
§ EXTERNAL ROUTINE 
4 SAVE CONTEXT : LNORM, ! save primary context 
5 RESTORE CONTEXT : L-NORM, ! restore primary context 
$ SERIAL _FILE : L-NORM, ' file serialization lock. 
RELEASE SERIAL_LOCK™: L_NORM, ! relinquish file serialization 
8 WRITE _DIRTY : LNORA ! write modified buffers 
9 GET_MAP_POINTER : L-MAP POINTER, ! get value of next map entry 
0 MAKE _POTNTER : LZMAKE POINTER, "build new map ntry 
1 NEXT_HEADER : LUNORM, : read next extension header 
¢ MARK _DIRTY : LLNORM, ! mark buffer for rewrite 
ZERO_ WINDOWS : LLNORM, ! invalidate windows of file 
4 CHE CRSUM : LINORM, ! compute file header checksum 
5 READ HEADER : L_NORM, ' read file header 
$ EXTEND HEADER : L_NORM, ! create extention header 
SCAN_BADLOG : LINORM; ! scan pending bad block log file 
9 
0 
; 


SAVE_CONTEXT (); 

! Construct pointers into the file header and get the current contents of the 
last map pointer. 

HEADER = .FILE_HDR; 

MAP_POINTER = .POINTER; 

GET_MAP_POINTER (); 

Now append the blocks to the bad block file. 

LBN = .LBN + .LAST_COUNT; ' compute LBN of bad cluster 
COUNT = .COUNT - .CAST_COUNT; 

Serialize on the bad block file. 


WN $9 OONOUES WN "OC OOnNOu 


PRIM_LCKINDX = SERIAL_FILE (BB_FID); 


HEADER = READ_HEADER (BB_FID, 0); 
WHILE 1 DO 


N 
EXT_HEADER = NEXT HEADER (.HEADER, 0); 
IF [EXT_HEADER EQC 0 THEN EXITLOOP; 
HEADER = .EXT_HEADER; 


END; 
MARK DIRTY (. HEADER); 
BUILB_POINTER = .HEADER + (.HEADERCFH2$B_MPOFFSET) + .HEADERCFH2$B_MAP_INUSE]) * 2; 


IF NOT MAKE_POINTER (.COUNT, .LBN, HEADER) 
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m 7 
16-Sep-1984 00:14:24 VAX-11 Bliss-32 V4,0-742 Page 5 
1023801984 99:45; 6 DISKSVMSMASTER:CF11X.SRCIDELBAD.B32; 1 . (2) 
1 HEADER = EXTEND_HEADER (UPLIT pyre ee FIBSC_LENGTH OF (0)), .HEADER, 0); 
1 BUILD POINTER = .HEADER + .HEADERCFH2$B_MPOFFSET] * 2; 
Pee ceF INTER (.COUNT, .LBN, .HEADER); 


BBLOCK CHEADERCFH2$W_RECATIRI, FATSL_HIBLK) = 
ROT (ROT (.BBLOCK CHEADERCFH2$W_RECATTRI, FATSL_HIBLK], 16) + .COUNT, 16); 


! If this file header supports it, stuff the high water field to 
be the allocated size. 
If .HEADER CFH2$B_IDOFFSET] GEQU (SBYTEOFFSET (FH2$L_HIGHWATER)+4)/2 
HEADER CFH2$L_HIGHWATER] = ROT (.BBLOCK CHEADERCFH2$W_RECATTRI], FATSL_HIBLK], 16) + 1; 
CHECKSUM (. HEADER); 
! Write the modified header(s), release the serialization lock, and return to 
primary context. 
WRITE_DIRTY (.LB_BASIS C.PRIM_LCKINDX]); 
RELEASE _SERIAL_LOCK (.PRIM_LCKINDX); 
RESTORE_CONTEXT (); 
Eicetty, Conove ene bes block cluster from the volume pending bad block log 
° a 
SCAN_BADLOG (0, 0, .LBN, REMOVE_BADBLOCK, .COUNT); 
1 END; ! end of routine DEALLOCATE_BAD 
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~-TITLE DELBAD 
-IDENT \V04-000\ 
-PSECT S$CODES,NOWRT,2 


0000 0003 0003 00000 P.AAA: .WORD 3, 3, 0 : 
O0# 00006 P.AAB: BYTE Of645 ; 
BB_FID= P.AAA 
.EXTRN SAVE CONTEXT, RESTORE _CONTEXT 
VEXTRN SERIAL FILE, RELEASE SERIAL_LOCK 
-EXTRN WRITE_BIRTY, GET_MAP POINTER 
TEXTRN MAKE_POINTER, NERT HEADER 
"EXTRN MARK“DIRTY, ZERO WINDOWS 
"EXTRN CHECRSUM, READ HEADER 


EXTRN EXTEND HEADER, ~SCAN_BADLOG 
03c4 00000 .ENTRY DEALLOCATE_BAD, Save R2,R6,R7,R8,R9 ; 1071 
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| 
of 4 -VAX=11_BLiss-32_v4,0-742 Page 06 
1-88-1984 19:50:16 DISKSVMSMASTERSEF TiX.SRC2DELBAD.832;1°%" | ; 
; 1152 | ; 
AVE CONTEXT i 
00006 00 FB 00008 NOV” FILE SADR HEADER £1480, 
i be At MOVE —_POINTER«’ MAP. POINTER : 1161 
. 06 B OF BSBW GET_MAP_POINTER * 1166 | : 
wore ; ADDL2 LAST_COONT, LON Stee | 
$7 oat O01 SUBL eH COUNT; COUNT £1193 | 
a4 SID CALLS. #17 SERIAL FILE 
00906 4 30 fe 635 HOVL nO: e4(8 BASE) + 117% : 
E D4 000 L : 
* OF ke CALLS i READ. HEADER 
00006 fF 36 FR Bde 18: WOVE” RO, HEADER : 1177 
D4 0003 L ‘ R é ; 
a5 PP i CALLS , AONEXT HEADER * 1178 : 
00006 CF 9 08 00$¢ TSTL’ EXT _HEADE pe 
52 DD 00040 PUSHL HEADER ; | ; 
5 Bape CALLS #1, MARK DIRTY : 1182 
00006 CF 01 FB $s MOVZBL 1(HEADERY, RO ¢ ; 
39 SA a5 aA 000c8 MOVZBL SB (HEADERS, R1 : ; 
39 6220 SE 000s ROVAG Deaf cas BUILD_POINTER tases 
52 DD 00056 PUSHL H a | 
7E 56 7 00038 CALLS it MAKE_POINTER ; 
— | 30 £8 00000 BLBS RO, 28 ; 1187 ; 
oF DD 09083 PUSHL HEADER 
ree OS Pe aobes CALLS” #3 EXTEND_HEADER ; 
non -S 50 00 00070 OVE RO. HEADER” ; 1188 
3 62th $e 000s? MOVAN (HEADER) CRO], BUILD -POINTER  ssa9 
’ 32 bb 00078 fover | Count =(SP) i ; 
7E ge 7B RRP CALLS 3 MAKE POINTER 2 se05 
00006 CF a 2 nn ,24(READER), RO : : 
50 38 £0 B008A OTL "eo" 26 (HEADER) ; 1199 : 
50 19 36 0008 CAPS (HEADERS , #00 
28 be St bes BLSSU 3$ : 1201 ; 
a OTL #16, 24(HEADER) : : 
BR 19 Be Renae ROVAB 1(RO)- 7OCHEADER) + 1203 
4c oA in: 8 ee PUSHL HEADER ; ; 
ai PB 00A3 CALLS #1, CHECKSUM : 1209 3 
00006 CF O1 FB O00A5 OVL  24(BASE), RO ; ; 
30 80 caso DD oooAC PUSH {38 CBASESCRO) ; ; 
0080 Cabo BP CALS WTS URITE DIRTY : 1211 : 
00006 CF OA BB 000B¢ PUSHL 24 (BASE) 
a ns Bett CALLS #1, RELEASE_SERIAL_LOCK i113 : 
00006 CF + EB thee CALLS #0, RESTORE-CONTEXT : 1513 
00006 CF 6 DD aocs PUSHL count i . 
5 bb boc? PUSHL LBN ; ‘ 
7e 9 Ooocs CLRQ | =(SP) 


yO6-000 1b-se HITS a a St te JDELBAD.B32:1°"" (25. 


0000G CF . fF A #5, SCAN_BA 3 
0 fe 4 4 cays 5, SCAN_BADLOG ; 


s-32 V4.0-742 
TER: CFIIX. SRC 
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; Routine Size: 209 bytes, Routine Base: SCODES + 0046 


OE few 


PSECT SUMMARY 
Name Bytes Attributes 
SCODES 279 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


quenesse SyGOl§ sewesce = Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$0UA26: CSYSLIBILIB.L32;1 18619 24 0 1000 00:02.0 
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COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:DELBAD/OBJ=OBJ$:DELBAD MSRC$:DELBAD/UPDATE=(ENH$:DELBAD) 
; ig a ae ‘ 70 data bytes 
; Elapsed Time: 9.6 
; Lines/CPU Min: 4206 
; Lexenes/CPU-Rin: 49696 


Used: 222 pages 
; ee Dey Complete” 
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L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 


AH-BT13A-SE DIGITA 
VAX/VMS V4.0 CONFID 


